Visual Basic Controls/Visual Basic Controls.iso/vbcontrol/tidict_1/tidict~1.exe/Viewer/ShedulerModule.bas

BASIC Source File | 1998-06-15 | 866 b | 47 lines

Attribute VB_Name = "ShedulerModule"
Option Explicit

Dim StartTime As Long
Dim NeedToShedule As Boolean
Dim ShedulerDelay As Integer

Sub InitSheduler(ByVal Delay As Integer)
  NeedToShedule = False
  ShedulerDelay = Delay
End Sub

Sub Shedule()
  If Not NeedToShedule Then Exit Sub
  If (Timer - StartTime) > ShedulerDelay Then
    NeedToShedule = False
    ShedulerAction
  End If
End Sub


Sub ShedulerStart()
  NeedToShedule = True
  StartTime = Timer
End Sub


Sub ShedulerDrop()
  NeedToShedule = False
End Sub

Sub ShedulerStop()
  If NeedToShedule Then ShedulerAction
  NeedToShedule = False
End Sub


Public Sub ShedulerAction()
  Dim Path$
  On Error GoTo EShedulerAction
  Path = TreeEditor.CurrentNode.FullPath
  TreeEditor.LoadListView Path
  Exit Sub
EShedulerAction:
  TreeEditor.LoadListView ""
End Sub